<%@ language=VBScript %> <% if Request("menu") = "del" then call del() else call index() end if sub index() %> <%=gbook_name%>
<%=gbook_name%>
当前位置:><%=name%> - >留言首页 - 删除留言 进入时间:<%=time%>
>
管理员密码
"> ">[记住密码]
删除的方式
[删除一条] [删除所有]
请点击确定
<% call htmlend() Response.End end sub sub del() password = Request.form("password") id = Request.form("id") save = Request.form("save") if id = "" then message=message&"对不起，你的删除ID号不能为空!\n" end if if password <> passwords then message=message&"您的管理口令不正确!\n" end if on error resume next if message <> "" then call error(""&message&"") Response.end else if Request.form("select") = "this" then sql = "delete * from gbook where id=" & id &" and userid="&userid Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open sql,conn,3,1 Rs.close sql = "delete * from reply where replyid=" & id &" and userid="&userid Rs.open sql,conn,3,1 Rs.close sql = "select * from admin where id="&userid Rs.open sql,conn,3,2 if Rs("today_count") > 0 then Rs("today_count") = Rs("today_count")-1 else Rs("today_count") = 0 end if Rs("today_time") = date Rs.update Rs.close elseif Request.form("select") = "all" then sql = "delete * from gbook where userid="&userid Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open sql,conn,3,1 Rs.close sql = "delete * from reply where userid="&userid Rs.open sql,conn,3,1 Rs.close sql = "select * from admin where id="&userid Rs.open sql,conn,3,2 Rs("today_count") = 0 Rs("today_time") = date Rs.update Rs.close end if if save <> "" then Response.cookies("password") = password Response.cookies("save") = save else Response.cookies("password") = "" Response.cookies("save") = "" end if set Rs = nothing conn.close set conn = nothing Response.redirect "index.asp?userid="&userid Response.End end if end sub %>